(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     13900,        319]
NotebookOptionsPosition[     13113,        299]
NotebookOutlinePosition[     13532,        315]
CellTagsIndexPosition[     13489,        312]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"Nybom", " ", "and", " ", "Stuhler"}], ",", " ", 
    RowBox[{
     RowBox[{
     "Interpreting", " ", "Trends", " ", "in", " ", "Intergenerational", " ", 
      "Mobility"}], " ", "-", " ", 
     RowBox[{"Figure", " ", "A4b"}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "Raising", " ", "the", " ", "compulsory", " ", "schooling", " ", "level"}],
    " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"Education", " ", "coefficient"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"simple", " ", "=", " ", 
    RowBox[{"{", 
     RowBox[{
     "0.447", ",", "0.447", ",", "0.349", ",", "0.380", ",", "0.380", ",", 
      "0.380"}], "}"}]}], "\[IndentingNewLine]", 
   RowBox[{"responsedelta", "=", " ", 
    RowBox[{"{", 
     RowBox[{
     "0.447", ",", "0.447", ",", "0.313", ",", "0.339", ",", "0.339", ",", 
      "0.339"}], "}"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"Steady", " ", "state", " ", "before", " ", "T"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"ss", " ", "=", " ", 
    RowBox[{"{", 
     RowBox[{"0.447", ",", "0.447", ",", "0.447"}], "}"}]}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"Draw", " ", "figure"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{"ListLinePlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"ss", ",", "simple", ",", "responsedelta"}], "}"}], ",", 
     RowBox[{"InterpolationOrder", "\[Rule]", "0"}], ",", 
     RowBox[{"Mesh", "\[Rule]", "Full"}], " ", ",", " ", 
     RowBox[{"AxesLabel", " ", "\[Rule]", " ", 
      RowBox[{"{", 
       RowBox[{"t", ",", 
        RowBox[{"HoldForm", "[", 
         RowBox[{"Subscript", "[", 
          RowBox[{"\[Beta]", ",", "inc"}], "]"}], "]"}]}], "}"}]}], ",", " ", 
     
     RowBox[{"AxesOrigin", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0.8", ",", "0.29"}], "}"}]}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0.29", ",", "0.47"}], "}"}]}], ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Black", ",", "Thick"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Black", ",", "Thick"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Black", ",", "Dashed"}], "}"}]}], "}"}]}], ",", " ", 
     RowBox[{"Ticks", " ", "\[Rule]", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"1", ",", "\"\<T-2\>\""}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"2", ",", "\"\<T-1\>\""}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"3", ",", "\"\<T\>\""}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"4", ",", "\"\<T+1\>\""}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"5", ",", "\"\<T+2\>\""}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"6", ",", "\"\<T+3\>\""}], "}"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
         "0.30", ",", " ", "0.32", ",", " ", "0.34", ",", " ", "0.36", ",", 
          " ", "0.38", ",", "0.40", ",", "0.42", ",", " ", "0.44", ",", 
          "0.46"}], "}"}]}], "}"}]}], " ", ",", " ", 
     RowBox[{"PlotMarkers", "\[Rule]", " ", 
      RowBox[{"{", 
       RowBox[{
       "\"\<\>\"", ",", "\"\<\[FilledSmallSquare]\>\"", ",", 
        "\"\<\[FilledSmallSquare]\>\""}], "}"}]}]}], "]"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"Plot", " ", "label", " ", "added", " ", 
     RowBox[{"manually", "!"}]}], " ", "*)"}]}]}]], "Input",
 CellChangeTimes->{{3.547476043096222*^9, 3.5474762497761*^9}, {
   3.547476594426877*^9, 3.5474766251696873`*^9}, {3.547476846736478*^9, 
   3.5474768730068817`*^9}, {3.547476912056032*^9, 3.547476925845028*^9}, {
   3.547477124135684*^9, 3.54747716004154*^9}, {3.547485046502116*^9, 
   3.547485156067123*^9}, {3.547485234334579*^9, 3.547485239412272*^9}, {
   3.547485329752323*^9, 3.547485352176402*^9}, {3.547541564220723*^9, 
   3.5475417736103697`*^9}, {3.547542154763465*^9, 3.547542159543511*^9}, {
   3.547542229248678*^9, 3.547542338131514*^9}, {3.5475424198512897`*^9, 
   3.547542497920104*^9}, {3.547542532677988*^9, 3.5475425616831417`*^9}, {
   3.5475426178029003`*^9, 3.547542663141144*^9}, {3.547545467510598*^9, 
   3.547545600010557*^9}, {3.547545634330052*^9, 3.5475456418706627`*^9}, {
   3.5475457612940283`*^9, 3.547545765060513*^9}, {3.547545862789178*^9, 
   3.547545893677615*^9}, {3.5475459253590593`*^9, 3.547545965328599*^9}, {
   3.5475460423179502`*^9, 3.547546049902185*^9}, {3.547546101264254*^9, 
   3.547546116053773*^9}, {3.54754624426409*^9, 3.5475462511908607`*^9}, {
   3.54754631968929*^9, 3.547546326691071*^9}, {3.5952457120442753`*^9, 
   3.595245816368526*^9}, {3.595245964962186*^9, 3.595246019664338*^9}, {
   3.595246211396487*^9, 3.595246271633585*^9}, {3.5952470612271423`*^9, 
   3.59524708264211*^9}, {3.595254372037528*^9, 3.595254528849885*^9}, {
   3.595254566840712*^9, 3.595254620725881*^9}, 3.595254654112935*^9, {
   3.595254852847533*^9, 3.595254935706044*^9}, {3.595335011096705*^9, 
   3.5953350940555162`*^9}, {3.595335142874489*^9, 3.59533520076819*^9}, {
   3.5953357589324093`*^9, 3.595335759952908*^9}, {3.595335920183565*^9, 
   3.595335981665344*^9}, {3.595337797068934*^9, 3.5953378003736467`*^9}, {
   3.595340841444706*^9, 3.595340855612385*^9}, {3.595341422674964*^9, 
   3.5953414319386797`*^9}, {3.595341477672697*^9, 3.595341488710428*^9}, 
   3.5953415225519037`*^9, {3.595341790755541*^9, 3.595341790899774*^9}, {
   3.595341940710248*^9, 3.595341944701229*^9}, {3.5953420098739433`*^9, 
   3.5953420116657953`*^9}, {3.5953420423474483`*^9, 3.595342123532962*^9}, {
   3.595342266239031*^9, 3.595342393085631*^9}, {3.595342663644824*^9, 
   3.595342704432047*^9}, {3.595342744726592*^9, 3.595342748172976*^9}, {
   3.911906810079657*^9, 3.911906822520844*^9}, {3.911907098507717*^9, 
   3.9119071135967703`*^9}},ExpressionUUID->"1f95536a-d04b-46da-b885-\
2f7c0dcf86ce"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.447`", ",", "0.447`", ",", "0.349`", ",", "0.38`", ",", "0.38`", ",", 
   "0.38`"}], "}"}]], "Output",
 CellChangeTimes->{3.911906838590509*^9},
 CellLabel->"Out[5]=",ExpressionUUID->"f3e51941-8ca4-4e4f-997c-870c7c945fdc"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.447`", ",", "0.447`", ",", "0.313`", ",", "0.339`", ",", "0.339`", ",", 
   "0.339`"}], "}"}]], "Output",
 CellChangeTimes->{3.911906838592621*^9},
 CellLabel->"Out[6]=",ExpressionUUID->"8525623b-586a-4e90-985f-1b917a972a52"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.447`", ",", "0.447`", ",", "0.447`"}], "}"}]], "Output",
 CellChangeTimes->{3.911906838593934*^9},
 CellLabel->"Out[7]=",ExpressionUUID->"b019381a-2c5d-4daf-a231-3ad5622c5df3"],

Cell[BoxData[
 GraphicsBox[{{}, {{{}, {}, 
     {GrayLevel[0], PointSize[
       NCache[
        Rational[7, 360], 0.019444444444444445`]], Thickness[Large], 
      LineBox[{{1., 0.447}, {2., 0.447}, {2., 0.447}, {3., 0.447}, {3., 
       0.447}}]}, 
     {GrayLevel[0], PointSize[
       NCache[
        Rational[7, 360], 0.019444444444444445`]], Thickness[Large], 
      LineBox[{{1., 0.447}, {2., 0.447}, {2., 0.447}, {3., 0.447}, {3., 
       0.349}, {4., 0.349}, {4., 0.38}, {5., 0.38}, {5., 0.38}, {6., 0.38}, {
       6., 0.38}}]}, 
     {GrayLevel[0], PointSize[
       NCache[
        Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6], 
      Dashing[{Small, Small}], 
      LineBox[{{1., 0.447}, {2., 0.447}, {2., 0.447}, {3., 0.447}, {3., 
       0.313}, {4., 0.313}, {4., 0.339}, {5., 0.339}, {5., 0.339}, {6., 
       0.339}, {6., 0.339}}]}}, {
     {GrayLevel[0], PointSize[
       NCache[
        Rational[7, 360], 0.019444444444444445`]], Thickness[Large], 
      GeometricTransformationBox[
       TagBox[InsetBox["", {0., 0.}],
        "InsetString"], {{{1., 0.447}}, {{2., 0.447}}, {{3., 0.447}}, {{1., 
       0.447}}, {{2., 0.447}}, {{3., 0.447}}}]}, 
     {GrayLevel[0], PointSize[
       NCache[
        Rational[7, 360], 0.019444444444444445`]], Thickness[Large], 
      GeometricTransformationBox[
       TagBox[InsetBox["\[FilledSmallSquare]", {0., 0.}],
        "InsetString"], {{{1., 0.447}}, {{2., 0.447}}, {{3., 0.349}}, {{4., 
       0.38}}, {{5., 0.38}}, {{6., 0.38}}, {{1., 0.447}}, {{2., 0.447}}, {{3.,
        0.349}}, {{4., 0.38}}, {{5., 0.38}}, {{6., 0.38}}}]}, 
     {GrayLevel[0], PointSize[
       NCache[
        Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6], 
      Dashing[{Small, Small}], GeometricTransformationBox[
       TagBox[InsetBox["\[FilledSmallSquare]", {0., 0.}],
        "InsetString"], {{{1., 0.447}}, {{2., 0.447}}, {{3., 0.313}}, {{4., 
       0.339}}, {{5., 0.339}}, {{6., 0.339}}, {{1., 0.447}}, {{2., 0.447}}, {{
       3., 0.313}}, {{4., 0.339}}, {{5., 0.339}}, {{6., 0.339}}}]}}, {
     {GrayLevel[0], PointSize[
       NCache[
        Rational[7, 360], 0.019444444444444445`]], Thickness[Large], 
      PointBox[{1., 0.447}], PointBox[{2., 0.447}], PointBox[{3., 0.447}], 
      PointBox[{1., 0.447}], PointBox[{2., 0.447}], PointBox[{3., 0.447}]}, 
     {GrayLevel[0], PointSize[
       NCache[
        Rational[7, 360], 0.019444444444444445`]], Thickness[Large], 
      PointBox[{1., 0.447}], PointBox[{2., 0.447}], PointBox[{3., 0.349}], 
      PointBox[{4., 0.38}], PointBox[{5., 0.38}], PointBox[{6., 0.38}], 
      PointBox[{1., 0.447}], PointBox[{2., 0.447}], PointBox[{3., 0.349}], 
      PointBox[{4., 0.38}], PointBox[{5., 0.38}], PointBox[{6., 0.38}]}, 
     {GrayLevel[0], PointSize[
       NCache[
        Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6], 
      Dashing[{Small, Small}], PointBox[{1., 0.447}], PointBox[{2., 0.447}], 
      PointBox[{3., 0.313}], PointBox[{4., 0.339}], PointBox[{5., 0.339}], 
      PointBox[{6., 0.339}], PointBox[{1., 0.447}], PointBox[{2., 0.447}], 
      PointBox[{3., 0.313}], PointBox[{4., 0.339}], PointBox[{5., 0.339}], 
      PointBox[{6., 0.339}]}, {}, {}, {}, {}, {}, {}, {}}, {
     {GrayLevel[0], PointSize[
       NCache[
        Rational[7, 360], 0.019444444444444445`]], Thickness[Large]}, 
     {GrayLevel[0], PointSize[
       NCache[
        Rational[7, 360], 0.019444444444444445`]], Thickness[Large]}, 
     {GrayLevel[0], PointSize[
       NCache[
        Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6], 
      Dashing[{Small, Small}]}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox[
     TagBox[
      SubscriptBox["\[Beta]", "inc"], HoldForm], TraditionalForm]},
  AxesOrigin->{0.8, 0.29},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 6.}, {0.29, 0.47}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {0, 0}},
  Ticks->{{{1, 
      FormBox["\"T-2\"", TraditionalForm]}, {2, 
      FormBox["\"T-1\"", TraditionalForm]}, {3, 
      FormBox["\"T\"", TraditionalForm]}, {4, 
      FormBox["\"T+1\"", TraditionalForm]}, {5, 
      FormBox["\"T+2\"", TraditionalForm]}, {6, 
      FormBox["\"T+3\"", TraditionalForm]}}, {{0.3, 
      FormBox["0.3`", TraditionalForm]}, {0.32, 
      FormBox["0.32`", TraditionalForm]}, {0.34, 
      FormBox["0.34`", TraditionalForm]}, {0.36, 
      FormBox["0.36`", TraditionalForm]}, {0.38, 
      FormBox["0.38`", TraditionalForm]}, {0.4, 
      FormBox["0.4`", TraditionalForm]}, {0.42, 
      FormBox["0.42`", TraditionalForm]}, {0.44, 
      FormBox["0.44`", TraditionalForm]}, {0.46, 
      FormBox["0.46`", TraditionalForm]}}}]], "Output",
 CellChangeTimes->{3.91190683864084*^9},
 CellLabel->"Out[8]=",ExpressionUUID->"30f699b9-0fa4-48f1-a0af-fc9deb804321"]
}, Open  ]]
},
WindowSize->{1225, 1329},
WindowMargins->{{19, Automatic}, {Automatic, -217}},
PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
FrontEndVersion->"12.0 for Mac OS X x86 (64-bit) (April 8, 2019)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 6198, 129, 367, "Input",ExpressionUUID->"1f95536a-d04b-46da-b885-2f7c0dcf86ce"],
Cell[6780, 153, 267, 6, 34, "Output",ExpressionUUID->"f3e51941-8ca4-4e4f-997c-870c7c945fdc"],
Cell[7050, 161, 270, 6, 34, "Output",ExpressionUUID->"8525623b-586a-4e90-985f-1b917a972a52"],
Cell[7323, 169, 218, 4, 34, "Output",ExpressionUUID->"b019381a-2c5d-4daf-a231-3ad5622c5df3"],
Cell[7544, 175, 5553, 121, 269, "Output",ExpressionUUID->"30f699b9-0fa4-48f1-a0af-fc9deb804321"]
}, Open  ]]
}
]
*)

